Oracle - <<<Barra de Progreso en Forms>>>

Talvez alguien me puede ayudar, enviando un ejemplo de como crear una Barra de Progreso en Forms6i.
Me entere que existe un demo en forms con este caso, si lo tienen y pueden enviarmelo se los agradecere mucho.
De antemano gracias.

Arturo Ordoñez.

Una solucion que encontre fue la siguiente.

Se crea un DISPLAY-ITEM se le da la forma deseada en cuanto a tamaño, color y forma, los adornos que le quieran dar.
Luego se le hace crecer a lo ancho con el procedimiento abajo descrito.

PROCEDURE barra_progreso IS

v NUMBER:= 1000;
x NUMBER := 0;
t constant number := get_item_property('barra_progreso.barra', WIDTH);

BEGIN
Set_Item_Property('barra_progreso.barra', WIDTH, 0 );
v := (t/v);
for i in 1..100000 loop

if x <= t then
begin
Set_Item_Property('barra_progreso.barra', WIDTH, x+v );
synchronize;
x := x+v;
end;
end if;
end loop;
end;

Arturo Ordoñez.